home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / doc / Visual Basic / Image862.gif < prev    next >
Graphics Interchange Format  |  1999-11-19  |  353.7 KB  |  672x625  |  8-bit (256 colors)
   ocr: TekcTbl mpouenyp: Dim Sesia(1 To 5) As Rezultat, I As Integer Private Sub Commandl Click() Sesia(I).NameExam(1) = "ouauka" Sesia(1).NameExam (2) = "MaremaTuka - Sesia(I).NameExam - (3) - - "Mcropua" Textl.Setrocus Sesia(I).Familia = Textl.Text Sesia(I).RezultExam (1) = Val(Text2.Text) Sesia(1).kezultExam (2) = Val(Text3.Text) Sesiat1).AezuitExam (3) = Val(Text4.Text) Textl.Text = : rext2.Text = - :n Text3.Text = :n Text4.Text = : - I=I+ 1 If I > 5 Then Commandl.Enabled = False Command2.Enabled = True Text5.Setrocus End If End Sub Private Sub Command2 Clicki) Dim Sredn As Single, Familia As Str ...